Dim fso, fld, TestFile, TestFile2, TestFile3
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.CreateFolder("c:\Folder2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set TestFile = fso.CreateTextFile("c:\Folder2\hello.txt", True)
TestFile.WriteLine("Witaj, wiecie!")
TestFile.Close
Set TestFile2 = fso.CreateTextFile("c:\Folder2\inny plik.txt", True)
TestFile2.WriteLine("Nie mam ju nic wicej do powiedzenia!")
TestFile2.Close
Set TestFile3 = fso.CreateTextFile("c:\Folder2\i jeszcze jeden.txt", True)
TestFile3.WriteLine("Och!")
TestFile3.Close
